! ｔｙｐｅ中的变量对外不可见

program ty
    implicit none
    type sf
        integer :: i,j
    end type sf
    integer, target :: k
    integer, pointer :: m 
    type(sf) :: a
    a%i = 1
    write(*,*) a%i 
    do k = 10, 1
        write(*,*) k
    end do 
    m => k
    write(*,*) m 
    m = 2
    write(*,*) m 
    
end program ty